﻿Imports DAO
Imports DTO
Public Class ThuocBUS
    Public Function LayDanhSach() As IList
        'Kiem tra Business Rule neu co
        Dim ds As IList
        Dim thuocdao As New ThuocDAO()
        ds = thuocdao.LayDanhSach()
        Return ds
    End Function
    Public Function LayBang() As DataTable
        'Kiem tra Business Rule neu co
        Dim dt As DataTable
        Dim thuocDao As New ThuocDAO()
        dt = thuocDao.LayBang()
        Return dt
    End Function
    Public Sub CapNhatBang(ByVal dt As DataTable)
        'Kiem tra Business Rule neu co
        Dim svDao As New ThuocDAO
        svDao.CapNhatBang(dt)
    End Sub
    Public Function LayTenThuoc() As IList
        Dim tenthuoc As IList
        '  Dim tenthuoc_DAO As New ThuocDAO()
        tenthuoc = ThuocDAO.Laytenthuoc
        Return tenthuoc
    End Function
End Class
